dim args :args =inputbox("seacrch refdes name =?",args,"C1")'"AP_26M_IN"
searchValue = ucase(trim(args))
if searchValue<>"" then
	dim doc
	set doc = Application.ActiveDocument
	doc.SelectObjects ppcbObjectTypeAll, "*", False  
	
	Application.ExecuteCommand("Find")
	FindDlg.Value = args
	FindDlg.Ok.Click()

	dim v
	set v = doc.ActiveView
	v.SetExtentsToSelection
end if

